home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / manchester / 2.2 / RepeatSwitchController.st < prev    next >
Text File  |  1993-07-24  |  934b  |  36 lines
  1. "    NAME        RepeatSwitchController
  2.     AUTHOR        tph@cs.man.ac.uk
  3.     FUNCTION auto-repeating inheritor of SwitchController 
  4.     ST-VERSIONS    2.2
  5.     PREREQUISITES     
  6.     CONFLICTS    
  7.     DISTRIBUTION      world
  8.     VERSION        1.1
  9.     DATE    15 aug 1987
  10. SUMMARY    RepeatSwitchController
  11.     can be used instead of SwitchController
  12.    (it is a subclass) to provide auto-repeating switches.(2.2).TPH
  13. "!
  14. 'From Smalltalk-80, version 2, of April 1, 1983 on 15 August 1987 at 11:12:32 am'!
  15.  
  16. SwitchController subclass: #RepeatSwitchController
  17.     instanceVariableNames: ''
  18.     classVariableNames: ''
  19.     poolDictionaries: ''
  20.     category: 'Interface-Menus'!
  21.  
  22.  
  23. !RepeatSwitchController methodsFor: 'basic control sequence'!
  24.  
  25. controlTerminate
  26.     "Override to ensure that the message is not sent after the button is released."
  27.  
  28.     view indicatorReverse! !
  29.  
  30. !RepeatSwitchController methodsFor: 'control defaults'!
  31.  
  32. controlActivity
  33.     "Whenever I am active, send the appropriate message."
  34.  
  35.     self sendMessage! !
  36.